home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Serious Software / GrooveMaker demo / GrooveMaker Demo / Media / MenuSong.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1998-07-27  |  963 b   |  44 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("menuSong6")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global gSong
  19.   if not (the visible of window "Help") then
  20.     if (gSong <> EMPTY) and (field "fieldElencoSongHD" contains gSong) then
  21.       repeat while the mouseDown
  22.         set the memberNum of sprite 24 to the number of member "Hseq"
  23.         updateStage()
  24.       end repeat
  25.     end if
  26.   end if
  27. end
  28.  
  29. on mouseUp
  30.   global gSong
  31.   if not (the visible of window "Help") then
  32.     if (gSong <> EMPTY) and (field "fieldElencoSongHD" contains gSong) then
  33.       cursor(4)
  34.       prepare()
  35.       go("seq", the moviePath & "grooveM")
  36.       put EMPTY into field "fieldDescription"
  37.       set the visible of sprite 23 to 0
  38.       puppetSprite(39, 1)
  39.       puppetSprite(24, 1)
  40.       cursor(-1)
  41.     end if
  42.   end if
  43. end
  44.